home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / freetk.arc / LOAN.TK < prev    next >
Encoding:
Text File  |  1987-06-16  |  907 b   |  125 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5.  
  6. :s
  7. b
  8. :c
  9.       ***  LOAN  CALCULATIONS ***
  10. #2
  11. :n
  12. price
  13. :v
  14. 15500
  15. :s
  16. i
  17. :u
  18. $
  19. :d
  20. $
  21. :c
  22. total price
  23. #3
  24. :n
  25. downpay
  26. :v
  27. 3500
  28. :s
  29. i
  30. :u
  31. $
  32. :d
  33. $
  34. :c
  35. down payment
  36. #4
  37. :n
  38. loan
  39. :s
  40. b
  41. :u
  42. $
  43. :d
  44. $
  45. :c
  46. loan amount
  47. #5
  48. :n
  49. payment
  50. :v
  51. 350
  52. :s
  53. i
  54. :u
  55. $/mo
  56. :d
  57. $/mo
  58. :c
  59. monthly payment
  60. #6
  61. :n
  62. rate
  63. :s
  64. b
  65. :u
  66. df/mo
  67. :d
  68. %/yr
  69. :c
  70. interest rate
  71. :f
  72. .008333333333333333
  73. #7
  74. :n
  75. term
  76. :v
  77. 36
  78. :s
  79. i
  80. :u
  81. mo
  82. :d
  83. yr
  84. :c
  85. loan term
  86. =u
  87. #1
  88. :f
  89. yr
  90. :t
  91. mo
  92. :m
  93. 12
  94. #2
  95. :f
  96. df/mo
  97. :t
  98. %/yr
  99. :m
  100. 1200
  101. =r
  102. #1
  103. :r
  104. price - downpay = loan
  105. #2
  106. :r
  107. payment = loan * (rate / (1 - (1 + rate)^(-term)))
  108. #4
  109. :r
  110. " Note: The simplicity and the utility of this model makes it an ideal
  111. :s
  112. C
  113. #5
  114. :r
  115. "       vehicle for explaining the basic concepts of TK design and
  116. :s
  117. C
  118. #6
  119. :r
  120. "       operation (see TUTORIAL.TXT in FREETK package).
  121. :s
  122. C
  123. %Tv,f,0,5,0,1,0
  124. %Or,f,5,1,0,1,0
  125.